home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / panner.d < prev    next >
Encoding:
Text File  |  1991-09-25  |  311 b   |  13 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'panner "Panner.h")
  4.  
  5. (define-widget-class 'panner 'pannerWidgetClass)
  6.  
  7. (define-callback 'panner 'reportCallback #t)
  8.  
  9. (c->scheme 'panner-reportCallback
  10. "   XawPannerReport *p = (XawPannerReport *)x;
  11.  
  12.     return Cons (Make_Fixnum (p->slider_x), Make_Fixnum (p->slider_y));")
  13.